perm filename X.F4[SAB,LCS] blob sn#309807 filedate 1977-10-09 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(85)
C00003 ENDMK
CāŠ—;
	DIMENSION I(85)
	CALL IFILE(1,'XXX')
2	READ(1,10,END=3)I
CC	WRITE(21,11)
	WRITE(21,12)I
	GO TO 2
11	FORMAT(A1)
10	FORMAT(85A1)
12	FORMAT(/1X,85A1)
3	END